name2reply :: String -> String
name2reply name =
   "Please to meet you, " ++ name ++ ".\n" ++
   "Your name contains " ++ charcount ++ " characters."
   where charcount = show (length name)

main :: IO ()
main = do
   putStrLn "Greeings once again. What is your name?"
   inpStr <- getLine
   let outStr = name2reply inpStr
   putStrLn outStr


